#!/usr/bin/perl

use English;
use POSIX;


$abc=123;
foreach $symname (sort keys %main::) {
	local *sym = $main::{$symname};
	if (defined $sym) {
		print "\$$symname = $sym\n";
	}
}
